home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / NEWMSG.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-25  |  3.4 KB  |  120 lines
  1. VERSION 4.00
  2. Begin VB.Form NewMessage 
  3.    Caption         =   "New Message"
  4.    ClientHeight    =   8460
  5.    ClientLeft      =   5745
  6.    ClientTop       =   2190
  7.    ClientWidth     =   8070
  8.    Height          =   8865
  9.    Left            =   5685
  10.    LinkTopic       =   "Form2"
  11.    LockControls    =   -1  'True
  12.    ScaleHeight     =   8460
  13.    ScaleWidth      =   8070
  14.    Top             =   1845
  15.    Width           =   8190
  16.    Begin VB.TextBox Body 
  17.       Height          =   6480
  18.       Left            =   180
  19.       MultiLine       =   -1  'True
  20.       ScrollBars      =   3  'Both
  21.       TabIndex        =   6
  22.       Top             =   1680
  23.       Width           =   7500
  24.    End
  25.    Begin VB.CommandButton Cancel 
  26.       Cancel          =   -1  'True
  27.       Caption         =   "Cancel"
  28.       Height          =   375
  29.       Left            =   2100
  30.       TabIndex        =   5
  31.       Top             =   870
  32.       Width           =   945
  33.    End
  34.    Begin VB.CommandButton Send 
  35.       Caption         =   "Send"
  36.       Height          =   390
  37.       Left            =   1080
  38.       TabIndex        =   4
  39.       Top             =   855
  40.       Width           =   975
  41.    End
  42.    Begin VB.TextBox Subject 
  43.       Height          =   315
  44.       Left            =   1080
  45.       TabIndex        =   3
  46.       Top             =   465
  47.       Width           =   6225
  48.    End
  49.    Begin VB.TextBox Newsgroups 
  50.       Height          =   315
  51.       Left            =   1080
  52.       TabIndex        =   1
  53.       Top             =   90
  54.       Width           =   6225
  55.    End
  56.    Begin VB.Label Label1 
  57.       Alignment       =   1  'Right Justify
  58.       Caption         =   "Subject:"
  59.       Height          =   225
  60.       Index           =   1
  61.       Left            =   15
  62.       TabIndex        =   2
  63.       Top             =   495
  64.       Width           =   975
  65.    End
  66.    Begin VB.Label Label1 
  67.       Alignment       =   1  'Right Justify
  68.       Caption         =   "Newsgroups:"
  69.       Height          =   225
  70.       Index           =   0
  71.       Left            =   45
  72.       TabIndex        =   0
  73.       Top             =   135
  74.       Width           =   960
  75.    End
  76.    Begin VB.Line Line1 
  77.       BorderColor     =   &H00808080&
  78.       Index           =   1
  79.       X1              =   0
  80.       X2              =   9870
  81.       Y1              =   1320
  82.       Y2              =   1320
  83.    End
  84.    Begin VB.Line Line1 
  85.       BorderColor     =   &H00FFFFFF&
  86.       Index           =   0
  87.       X1              =   0
  88.       X2              =   6645
  89.       Y1              =   1350
  90.       Y2              =   1350
  91.    End
  92. Attribute VB_Name = "NewMessage"
  93. Attribute VB_Creatable = False
  94. Attribute VB_Exposed = False
  95. Option Explicit
  96. ' For spacing during Form_Resize
  97. Private Const Margin = 2
  98. Private Sub Cancel_Click()
  99.     Unload Me
  100. End Sub
  101. Private Sub Form_Resize()
  102.     Line1(0).X1 = 0
  103.     Line1(1).X1 = 0
  104.     Line1(0).X2 = Me.ScaleWidth
  105.     Line1(1).X2 = Me.ScaleWidth
  106.     NewsGroups.Width = Me.ScaleWidth - NewsGroups.Left - Margin
  107.     Subject.Width = NewsGroups.Width
  108.     body.Left = Margin
  109.     body.Width = Me.ScaleWidth - 2 * Margin
  110.     body.Top = Line1(0).Y2 + Margin * 5
  111.     body.Height = Me.ScaleHeight - body.Top - Margin * 5
  112. End Sub
  113. Private Sub Send_Click()
  114.     Form1.News1.Subject = Subject.Text
  115.     Form1.News1.BodyText = body.Text
  116.     Form1.News1.NewsGroups = NewsGroups.Text
  117.     Form1.Flag = 1
  118.     Unload Me
  119. End Sub
  120.